home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue54 / CCorn / PubMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-01-10  |  472 b   |  27 lines
  1. unit PubMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComObj, ActiveX, Publisher_TLB, StdVcl;
  7.  
  8. type
  9.   TEventObj = class(TAutoObject, IEventObj)
  10.   protected
  11.     function MyEvent(const EventParam: WideString): HResult; safecall;
  12.   end;
  13.  
  14. implementation
  15.  
  16. uses ComServ;
  17.  
  18. function TEventObj.MyEvent(const EventParam: WideString): HResult;
  19. begin
  20.  
  21. end;
  22.  
  23. initialization
  24.   TAutoObjectFactory.Create(ComServer, TEventObj, Class_EventObj,
  25.     ciMultiInstance, tmApartment);
  26. end.
  27.